﻿Public Class RelatoriosVendaFRM
    Public Op As String
    Private Sub RelatoriosFRM_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If (Op = "I") Then
            CRVRelatorio.PrintReport()
            Me.Close()
        End If
    End Sub

    Private Sub RelatoriosFRM_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Dim aux As CrystalDecisions.CrystalReports.Engine.ReportClass
        aux = Me.CRVRelatorio.ReportSource
        aux.Close()
        Op = ""
    End Sub
End Class